home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Herois / Codigo.Cst / 00183_MelhoresMomentos- anima especial.ls < prev    next >
Encoding:
Text File  |  1999-03-19  |  1.6 KB  |  67 lines
  1. property spr
  2. property seq1, seq2, seq
  3. property seqAleatoria
  4. property tamanho, mem1, mem2
  5. property limitado
  6.  
  7. on beginSprite me
  8.   global myMemSize
  9.   if myMemSize < 15 * 1024 * 1024 then
  10.     set limitado = true
  11.   else
  12.     set limitado = false
  13.   end if
  14.   
  15.   set spr = the spriteNum of me
  16.   set mem1 = the number of member "Xclassi1"
  17.   set mem2 = the number of member "Xclassi2"
  18.   set tamanho = 9
  19.   
  20.   set seq1 = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9]
  21.   set seq2 = seq1
  22.   set seq = 1
  23.   
  24.   set seqAleatoria = false
  25.   
  26.   puppetSprite spr, true
  27.   puppetSprite spr+1, true
  28.   
  29.   if limitado then
  30.     set the member of sprite spr to member (mem1 + random(10) - 1)
  31.     set the member of sprite (spr+1) to member (mem2 + random(10) - 1)
  32.   end if
  33.   
  34. end 
  35.  
  36. on idleSprite me
  37.   if limitado then return
  38.   
  39.   set seq = seq + 1
  40.   if seq > tamanho then
  41.     set seq = 1
  42.     set seq1 = [0, 1, 2, 3, 4, 5, 6, 7, 8]
  43.     set seq2 = [0, 1, 2, 3, 4, 5, 6, 7, 8]
  44.     if seqAleatoria then
  45.       set seqAleatoria = false
  46.     else
  47.       set seqAleatoria = true
  48.       repeat with i = 1 to tamanho
  49.         set k = random(tamanho + 1 - i)
  50.         set x1 = getAt(seq1,k)
  51.         setAt(seq1,k, getAt(seq1,tamanho+1-i))
  52.         setAt(seq1,tamanho+1-i, x1)
  53.         
  54.         set l = random(tamanho + 1 - 1)
  55.         set x1 = getAt(seq2,l)
  56.         setAt(seq2,l, getAt(seq2,tamanho+1-i))
  57.         setAt(seq2,tamanho+1-i, x1)
  58.       end repeat
  59.     end if
  60.   end if
  61.   
  62.   set the member of sprite spr to member (mem1 + getAt(seq1,seq))
  63.   set the member of sprite (spr+1) to member (mem2 + getAt(seq2,seq))
  64.   
  65.   global gMustUpdate
  66.   set gMustUpdate to true
  67. end